10 POKE52,56:POKE51,0:POKE56,56:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53281,0:POKE53280,0
40 PRINT"[147]":POKE53272,23:GOSUB2050
50 DIMGR(13,4),GX(13,4),GY(13,4),X(13),Y(13),N(18)
60 SYS57812"CHILE FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
70 SYS57812"WND/INP/CM/IND",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
72 SYS57812"CHILE SFX",DV,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
76 SD=201*256:SYS SD:SYSSD+12
80 POKE53265,11:POKE53272,31
90 UP=49152  :REM SCROLL UP
100 DN=UP+3   :REM SCROLL DOWN
110 CM=50432  :REM COPYMEM
120 GOTO360
127 :
128 :REM STORE SCREEN
129 :
130 SYS CM,1024,20480+BU*2000,1000
140 SYS CM,55296,21480+BU*2000,1000
150 RETURN
157 :
158 :REM RESTORE SCREEN
159 :
160 SYS CM,20480+BU*2000,1024,1000
170 SYS CM,21480+BU*2000,55296,1000
180 RETURN
187 :
188 :REM MOVE CHILE ROUTINE
189 :
190 POKE214,GY(X(C),Y(C)):PRINT:PRINTTAB(GX(X(C),Y(C)))CG$
200 POKE214,HQ:PRINT:PRINTTAB(J*3+HD)CH$"[145][157][157]"CHR$(C+192)
202 SYSSD+9,SQ
210 GR(J,K)=GR(X(C),Y(C)):GR(X(C),Y(C))=0:X(C)=J:Y(C)=K
220 RETURN
227 :
228 :REM PRINT MS$
229 :
230 POKE781,24:SYS59903
240 POKE214,23:PRINT"[155]":PRINTTAB(20-LEN(MS$)/2)MS$""
250 RETURN
257 :
258 :REM WIGGLE SCALES
259 :
260 SYSSD+9,2:FORI=0TO2
270 SYSDN,1,4,18,6,0
280 SYSUP,21,3,18,6,0:POKE214,7:PRINT:PRINTTAB(28)MT$
290 SYSUP,1,4,18,6,0
300 SYSDN,21,3,18,6,0:POKE214,8:PRINT:PRINTTAB(8)MT$
310 SYSUP,1,3,18,6,0
320 SYSDN,21,4,18,6,0:POKE214,7:PRINT:PRINTTAB(8)MT$
330 SYSDN,1,3,18,6,0
340 SYSUP,21,4,18,6,0:POKE214,8:PRINT:PRINTTAB(28)MT$
350 NEXT:RETURN
357 :
358 :REM SETUP
359 :
360 BG$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
370 CH$=" [149][160][157][157][161] [162][157][157][157][163] [164][157][157][157][165][166][167]"
380 CG$="   [157][157][157]   [157][157][157]   [157][157][157]   "
390 CI$=" [160][157][157][161] [162][157][157][157][163] [164][157][157][157][165][166][167]"
400 PL$="[158]#$              %&"
410 MT$="[155]_[152]__[151]_"
420 NU$="[152][172][198]2[146][187][157][157][157][157]____[157][157][157][157][188]__[190]"
430 NU$(1)="[152]:;[157][157]<=":NU$(2)="[152][180][181][157][157][182][183]":NU$(3)="[152][184][185][157][157][186][187]"
440 I=RND(-TI)
450 V(0)=-.1:V(1)=.1:V$(0)="[204]IGHT":V$(1)="[200]EAVY"
460 FORI=0TO2:FORJ=0TO11:READGX(J,I),GY(J,I):NEXT:NEXT
470 DATA1,3,4,3,7,3,10,3,13,3,16,3,21,3,24,3,27,3,30,3,33,3,36,3
480 DATA1,14,4,14,7,14,10,14,13,14,16,14,20,14,23,14,26,14,30,14,33,14,36,14
490 DATA1,18,4,18,7,18,10,18,13,18,16,18,20,18,23,18,26,18,30,18,33,18,36,18
500 GOSUB1650
507 :
508 :REM GAME SCREEN
509 :
510 POKE53265,11:PRINT"[147]  [176][174][176][174][174][174][176][176][174][176][174][176][174][176]\[176][174]
520 [153]"  (null)-<(null)-<(null)(null)(null)(null)(null)(null)(null)/^PRINTCHILECHALLENGE"
530 [153]"  /EXPEXP//EXPEXP//EXP/EXPEXP/EXP/EXP
540 POKE214,7:PRINT:PRINT""PL$""PL$
550 FORI=1TO3
560 PRINTTAB(8)MT$TAB(28)MT$
570 NEXT
580 PRINTTAB(9)"[145][152][198]1"TAB(29)"[198]3"
590 PRINTTAB(8)"[155][188][152]__[151]_[152]________________[155]_[152]__[151][190]"
600 PRINTTAB(18)"[145][145]"NU$
610 POKE214,13:PRINT:PRINTTAB(19)"[145][145]"NU$(1)
620 PRINT"[149][176][192][192][192][192][192][192][179][155][211][208][193][195][197][149][171][192][192][192][192][192][178][192][192][192][179][155][198]5[149][171][192][192][178][192][192][192][179][155][198]7[149][171][192][192][174]";
630 FORI=1TO8:PRINT"[221]                  [221]         [221]         [221]";:NEXT
640 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][189]";
650 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
660 FORI=1TO6:POKE214,14:PRINT:PRINTTAB(I*3-2)CH$;:PRINT"[145][157][157]"CHR$(192+I)
670 POKE214,18:PRINT:PRINTTAB(I*3-2)CH$;:PRINT"[145][157][157]"CHR$(198+I):NEXT
680 POKE53265,27
687 :
688 :REM SETUP ARRAYS/VARIABLES
689 :
690 FORI=0TO2:FORJ=0TO11:GR(J,I)=0:NEXT:NEXT
700 FORI=1TO2:FORJ=0TO5:GR(J,I)=1:NEXT:NEXT
710 FORI=1TO6:X(I)=I-1:Y(I)=1:X(I+6)=I-1:Y(I+6)=2:NEXT
720 U=INT(RND(0)*12):UU=INT(RND(0)*2)
730 IFU>5THENGR(U-6,2)=1+V(UU):GOTO750
740 GR(U,1)=1+V(UU)
750 W=1:WW=0:N=0
760 PRINT""
762 MS$="[193] TO [204]   [198]-KEYS/[211][208][193][195][197]   [205] - [205]ENU":GOSUB230
767 :
768 :REM MAIN LOOP
769 :
770 GETA$:IFA$=""THEN770
780 IFA$="[137]"THEN1330
790 IFA$<>"M"THEN800
792 BU=2:GOSUB130:GOSUB1650:BU=2:GOSUB160
794 IFWW=1ANDA$="2"THEN510
796 GOTO770
800 IFA$<"A"ORA$>"L"THEN770
810 N=1
820 C=ASC(A$)-64:N(N)=C
830 POKE214,GY(X(C),Y(C)):PRINT:PRINTTAB(GX(X(C),Y(C)))""CI$"[145][157][157]"CHR$(192+C)
840 POKE214,GY(X(C),Y(C)):PRINT:PRINTTAB(GX(X(C),Y(C)))CH$"[145][157][157]"CHR$(192+C)
850 GETA$:IFA$=""THEN830
860 IFA$>="[133]"ANDA$<="[137]"THEN940
870 IFN=1ANDA$=" "THEN1260
880 IFA$=" "THEN940
890 IFA$<"A"ORA$>"L"THEN830
900 POKE214,GY(X(C),Y(C)):PRINT
910 PRINTTAB(GX(X(C),Y(C)))""CI$"[145][157][157]"CHR$(192+C)
920 N=N+1
930 GOTO820
940 WW=1:FORI=0TO11:IFN(I)=0THEN960
950 C=N(I):N(I)=0:I=11
960 NEXT:N=N-1
970 IFN<0THEN770
980 IFA$=" "THEN1260
990 ONASC(A$)-132GOTO1000,1060,1120,1190,1620
997 :
998 :REM F1
999 :
1000 J=6:FORI=0TO5:IFGR(I,0)=0THENJ=I:I=5
1010 NEXT:K=0
1020 IFJ=6THEN770
1030 SQ=0:HQ=3:HD=1:GOSUB190
1040 IFNTHEN940
1050 GOTO770
1057 :
1058 :REM F3
1059 :
1060 J=12:FORI=6TO11:IFGR(I,0)=0THENJ=I:I=11
1070 NEXT:K=0
1080 IFJ=12THEN770
1090 SQ=0:HQ=3:HD=3:GOSUB190
1100 IFNTHEN940
1110 GOTO770
1117 :
1118 :REM F5
1119 :
1120 J=0:FORI=6TO8:IFGR(I,1)=0THENJ=I:I=8:K=1
1130 NEXT:IFJTHEN1160
1140 FORI=6TO8:IFGR(I,2)=0THENJ=I:I=8:K=2
1150 NEXT:IFJ=0THEN770
1160 SQ=1:HQ=GY(0,K):HD=2:GOSUB190
1170 IFNTHEN940
1180 GOTO770
1187 :
1188 :REM F7
1189 :
1190 J=0:FORI=9TO11:IFGR(I,1)=0THENJ=I:I=11:K=1
1200 NEXT:IFJTHEN1230
1210 FORI=9TO11:IFGR(I,2)=0THENJ=I:I=11:K=2
1220 NEXT:IFJ=0THEN770
1230 SQ=1:HQ=GY(0,K):HD=3:GOSUB190
1240 IFNTHEN940
1250 GOTO770
1257 :
1258 :REM SPACE
1259 :
1260 J=6:FORI=0TO5:IFGR(I,1)=0THENJ=I:I=5:K=1
1270 NEXT:IFJ<6THEN1300
1280 FORI=0TO5:IFGR(I,2)=0THENJ=I:I=5:K=2
1290 NEXT:IFJ=6THEN770
1300 SQ=1:HQ=GY(0,K):HD=1:GOSUB190
1310 IFNTHEN940
1320 GOTO770
1327 :
1328 :REM WEIGHING
1329 :
1330 BU=1:GOSUB130
1340 W1=0:FORI=0TO5:W1=W1+GR(I,0):NEXT
1350 W2=0:FORI=6TO11:W2=W2+GR(I,0):NEXT
1360 IFW2=W1THENGOSUB260:GOTO1450
1370 IFW2>W1THEN1420
1380 GOSUB260:SYSDN,1,4,18,6,0
1390 SYSUP,21,3,18,6,0
1400 POKE214,7:PRINT:PRINTTAB(28)MT$
1410 GOTO1450
1420 GOSUB260:SYSUP,1,3,18,6,0
1430 SYSDN,21,4,18,6,0
1440 POKE214,7:PRINT:PRINTTAB(8)MT$
1450 W=W+1:IFW>3THEN1500
1470 GETA$:IFA$=""THEN1470
1480 BU=1:GOSUB160
1482 POKE214,11:PRINT:PRINTTAB(19)NU$(W)
1490 GOTO790
1497 :
1498 :REM WELL?
1499 :
1500 MS$="[211]O, WHICH IS THE ODDBALL?":GOSUB230
1510 GETA$:IFA$<"A"ORA$>"L"THEN1510
1520 MS$="[193]ND IS IT LIGHT OR HEAVY?  (L/H)":GOSUB230
1530 GETB$:IFB$<>"L"ANDB$<>"H"THEN1530
1540 IFU<>ASC(A$)-65THEN1600
1550 IFUU=0ANDB$="H"THEN1600
1560 IFUU=1ANDB$="L"THEN1600
1570 MS$=" [217]OU DID IT!!! [212]HAT'S RIGHT!":GOSUB230
1572 FORJ=0TO2:FORI=0TO15:SYSSD+9,IAND3:NEXT:NEXT
1580 GETA$:IFA$=""THEN1580
1590 GOTO1620
1600 MS$="[212]HAT'S NOT IT. [201]T'S "+CHR$(U+193)+" - "+V$(UU):GOSUB230
1610 GETA$:IFA$=""THEN1610
1620 WW=0:GOSUB1650
1630 GOTO510
1647 :
1648 :REM MENU
1649 :
1650 BU=0:IFF1THENGOSUB160:GOTO1890
1660 F1=1:POKE53265,11
1670 PRINT"[147][154]";:
1680 FORI=0TO23:PRINTBG$;:NEXT
1690 PRINTLEFT$(BG$,39)"[157][148]@"
1700 PRINT""LEFT$(BG$,34)
1710 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
1720 PRINT"[158][[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]\"
1730 FORI=0TO17:PRINT"[158][165]                                  [167]@":NEXT
1740 PRINT"[158]][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]^@"
1750 PRINT""LEFT$(BG$,36)
1760 PRINT"[176][174][176][174][174][174][176][176][174][176][174][176][174][176]\[176][174][146]    [153]CHILE
1770 [153]"(null)-<(null)-<(null)(null)(null)(null)(null)(null)(null)/^"
1780 [153]"/EXPEXP//EXPEXP//EXP/EXPEXP/EXP/EXPWAIT  PRINTCHALLENGE
1790 PRINT"[155]    [207]NE OF TWELVE CHILES IS TOO
1800 [153]"HEAVY OR TOO LIGHT.  ATNLL OTHERS
1810 PRINT"WEIGH THE SAME.  [217]OU HAVE THREE
1820 [153]"'WEIGHINGS' ON THE SCALE TO
1830 PRINT"DETERMINE WHICH CHILE IS THE
1840 [153]"DIFFERENT ONE, AND WHETHER IT IS
1850 PRINT"TOO HEAVY OR TOO LIGHT.
1860 [153]"    (null)OVE CHILES BY PRESSING THEIR
1870 PRINT"LETTER(S) THEN THE [198]-KEY OF THEIR
1880 [153]"DESTINATION.  (null)RESS ASC2 TO WEIGH.
1890 POKE214,17:PRINT:IFWW=0THEN1900
1892 PRINTTAB(9)"1  [210]ESUME [195][200][201][204][197] [195][200][193][204][204][197][206][199][197]  "
1894 PRINTTAB(9)"2  [206]EW [195][200][201][204][197] [195][200][193][204][204][197][206][199][197]"
1896 PRINTTAB(9)"3  [195]ALL IT QUITS":GOTO1910
1900 PRINTTAB(9)"1  [212]AKE THE [195][200][193][204][204][197][206][199][197]     "
1901 PRINTTAB(9)"                        "
1902 PRINTTAB(9)"2  [195]ALL IT QUITS"
1910 POKE53265,27
1920 GOSUB130
1930 GETA$:IFA$=""THEN1930
1932 IFA$<"1"ORA$>"3"THEN1930
1934 SYSSD+9,3
1940 IFA$="1"THENRETURN
1950 IFA$="2"ANDWW=0THEN2000
1955 IFA$="2"THENRETURN
1958 IFA$="3"ANDWWTHEN2000
1960 GOTO1930
1987 :
1988 :REM RETURN TO LS
1989 :
2000 PRINT"[147]":SYSSD+15
2002 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN2020
2010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN2030
2020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
2030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
2040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
2047 :
2048 :REM LS COPYRIGHT
2049 :
2050 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
2060 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
2070 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
2080 Z$(0)="[195][193][204][200][207][207][206]'[211] [195][200][201][204][197] [195][200][193][204][204][197][206][199][197]":Z$(1)="BY [203]NEES [195]ALHOON
2090 Z$(2)[178]"(LEN) 1994 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
2100 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
2110 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
2120 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
2130 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF":Z$(7)="THIS PROGRAM BY CALLING"
2140 Z$(8)="1-800-831-2694 OR 1-318-221-8718.":POKE214,12:PRINT
2150 FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
10000 OPEN15,8,15,"S0:CHILE CHAL":CLOSE15:SAVE"CHILE CHAL",8:END